*********************************************************************************
* Supplemental Material, Figure S2.1											*
*********************************************************************************

* Project: 	No Zeitenwende (yet)
* Authors: 	Matthias Mader
* Date:		March 2023	

* Data: GLES panel survey, W1-W23

*********************************************************************************

*** Setup

	clear
	set more off            						// Disable partitioned output
	set dp period									// Use comma instead of dot for decimals
	set linesize 80         						// Line size limit to make output more readable
	macro drop _all         						// clear all macros
	set scheme plotplainblind, permanent				// set graph scheme, e.g., cleanplots, plottig plotplainblind, burd3, s1mono
	graph set window fontface "Times New Roman"		// set font in graphs | "Arial" | "Times New Roman"


*** Figure S2.1

	use "DATA_FigureS2_1.dta", clear

	graph dot w23 w22 w21 w17 w16 w14 w13 w11 w10 w8 w7 w6 w5 w4 w2, over(var_str, sort(var)) ///
		marker(1, msize(large) msymbol(circle)	mcolor(eltblue%40)) /// w23: 2022
		marker(2, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(3, msize(large) msymbol(circle) 			mcolor(red))   /// w21: 2021   mlwidth(0)
		marker(4, msize(large) msymbol(circle) 			mfcolor(red)   mlcolor(red))   /// w17: 2021
		marker(5, msize(large) msymbol(circle) 			mfcolor(red)   mlcolor(red))   /// w16: 2021
		marker(6, msize(large) msymbol(circle) 			mfcolor(red%40)  mlcolor(red))   /// w11: 2019
		marker(7, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w8: 2017
		marker(8, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w5: 2017
		marker(9, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w4: 2017
		marker(10, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w2: 2017
		marker(11, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w2: 2017
		marker(12, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w2: 2017
		marker(13, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w2: 2017
		marker(14, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w2: 2017
		marker(15, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w2: 2017
		title(" ", size (med)) ///
		legend(order(3 "Pre-invasion" 2  "Post-invasion" ) size(medsmall) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medsmall)) ///
		yline(50, lcolor(black))  ///
		graphregion(margin(0 0 -5 -10)) ///
		ysize(6) xsize(7) ///
		name(figureS2_1, replace)


*** Figure S2.2

	use "DATA_FigureS2_2.dta", clear

	graph dot w23 w22 w21 w17 w16 w14 w8 w2, over(var_str, sort(var))  ///
		marker(1, msize(large) msymbol(circle)	mcolor(eltblue%50)) /// w23: 2022
		marker(2, msize(large) msymbol(dot) 			mcolor(eltblue))   /// w22: 2021   
		marker(3, msize(large) msymbol(circle) 			mcolor(red))   /// w21: 2021   
		marker(4, msize(large) msymbol(circle) 			mfcolor(red%50)   mlcolor(red))   /// w17: 2021
		marker(5, msize(large) msymbol(circle) 			mfcolor(red%50)   mlcolor(red))   /// w16: 2021
		marker(6, msize(large) msymbol(circle) 			mfcolor(red%40)  mlcolor(red))   /// w11: 2019
		marker(7, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w8: 2017
		marker(8, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w5: 2017
		marker(9, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w4: 2017
		marker(10, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w2: 2017
		title(" ", size (med)) ///
		legend(order(3 "Pre-invasion" 2  "Post-invasion" ) size(medsmall) row(1) position(6)) ///
		yscale(range(0 (.1) 1)) ylabel(0 (.1) 1, labsize(medsmall)) ///
		yline(.5, lcolor(black))  ///
		graphregion(margin(0 0 -5 -10)) ///
		ysize(6) xsize(7) ///
		name(figureS2_2, replace)

